home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vbec20 / setup.exe / file0009.bin < prev    next >
Encoding:
Text File  |  1999-01-23  |  779 b   |  25 lines
  1. Attribute VB_Name = "modVBErrCatchGlobalHandler"
  2. ' VBECSkipModule - Do not remove this line !
  3. Option Explicit
  4.  
  5. Global VBECUserReply As Long
  6.  
  7. Function VBErrCatchGlobalHandler(MODULENAME_ As String, PROCNAME_ As String) As Long
  8.     Dim sErr As String
  9.     
  10.     sErr = "Error Number  : " & Err.Number & vbCrLf & _
  11.            "Description   : " & Err.Description & vbCrLf & _
  12.            "Build Number  : " & buildnumber & vbCrLf & _
  13.            "Module Name   : " & MODULENAME_ & vbCrLf & _
  14.            "Procedure Name: " & PROCNAME_ & vbCrLf & _
  15.            "Line Number   : " & Erl & vbCrLf & _
  16.            "Date and time : " & Now
  17.     
  18.     frmVBErrCatch.ErrDetails = sErr
  19.     frmVBErrCatch.Show 1
  20.     
  21.     VBErrCatchGlobalHandler = VBECUserReply
  22. End Function
  23.  
  24.  
  25.